home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-06_1988_-_de_Side_B.d64 / donald the hero (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  113 lines
  1. 0 ifpeek(51999)=111then7
  2. 1 ifx=0thenx=1:load"d-sprites",8,1
  3. 2 ifx=1thenx=2:load"d-pic",8,1
  4. 3 ifx=2thenx=3:load"d-joy",8,1
  5. 4 ifx=3thenx=4:load"d-split",8,1
  6. 5 ifx=4thenx=5:load"d-drum",8,1
  7. 6 ifx=5thenx=6:load"d-cover",8,1
  8. 7 print"[147]":poke214,24:sys58640:printtab(9)"[158]taste space druecken !":sys51200
  9. 8 poke51999,111:poke49205,148:poke49220,56:poke53265,0
  10. 9 poke53280,11:poke53281,0:print"[147][151]"
  11. 10 fora=52000to52045:readb:pokea,b:next
  12. 15 poke198,0:poke54276,0
  13. 20 sys52000:vc=53248:ci=56576
  14. 30 pokevc+24,56:pokeci,peek(ci)and252
  15. 40 poke648,204:print"[147]";:pokevc+21,0
  16. 60 data234,165,1,120,41,251,133,1,160,0,132,251,132,253,169,216,133,252
  17. 70 data169,224,133,254,162,16,177,251,145,253,200,208,249,230,252,230,254
  18. 80 data202,208,242,165,1,9,4,133,1,88,96
  19. 81 rem---------------------------------
  20. 82 rem written by : frank abbing      :
  21. 83 rem            :                   :
  22. 84 rem  (w) 1988  : margarethenstr.13 :
  23. 85 rem            :                   :
  24. 86 rem            : 4422 ahaus        :
  25. 87 rem            :                   :
  26. 88 rem---------------------------------
  27. 89 :
  28. 90 ad=57344
  29. 100 readx:ifx=-1then200
  30. 110 cg=ad+x*8:fori=0to7:readq:pokecg+i,q:next:goto100
  31. 112 data42,255,255,255,255,255,255,255,255
  32. 115 data0,0,240,240,240,240,240,240,0
  33. 120 data28,0,255,255,255,255,255,255,0
  34. 122 data30,255,195,129,0,0,0,0,0
  35. 125 data31,0,0,0,0,0,129,195,255
  36. 127 data85,7,31,63,127,127,255,255,255
  37. 130 data74,255,255,255,127,127,63,31,7
  38. 132 data112,248,224,192,128,128,0,0,0
  39. 135 data109,0,0,0,128,128,192,224,248
  40. 137 data73,224,248,252,254,254,255,255,255
  41. 140 data75,255,255,255,254,254,252,248,224
  42. 142 data110,31,7,3,1,1,0,0,0
  43. 145 data125,0,0,0,1,1,3,7,31
  44. 199 data-1
  45. 200 v=53248:pokev+28,255:pokev+37,1:pokev+39,6:pokev+38,8
  46. 202 poke38101,105:poke38102,153:poke36887,0:poke38059,17
  47. 205 pokev+40,0:pokev+41,0:pokev+42,0:pokev+43,0
  48. 210 gosub800
  49. 212 p$(0)="     "
  50. 215 p$(1)="@    "
  51. 217 p$(2)="\    "
  52. 220 p$(3)="\@   "
  53. 222 p$(4)="\\   "
  54. 225 p$(5)="\\@  "
  55. 226 p$(6)="\\\  "
  56. 228 p$(7)="\\\@ "
  57. 230 p$(8)="\\\\ "
  58. 232 p$(9)="\\\\@":sys39242
  59. 235 p$(10)="\\\\\":pp=10:sc=0
  60. 250 poke25593,160:poke25594,160:poke25595,156:poke25596,156
  61. 300 a3=160:a4=160:a1=156:a2=156:za=0
  62. 302 poke1000,0:poke999,0:poke998,0:gosub400
  63. 303 print"[144][147][158][211]core"sc
  64. 305 print"[158]"tab(20)"[197]nergie "p$(pp)
  65. 310 ifpeek(v+6)<=10thenpoke25595,a1:a1=a1+1:ifa1>=157+zathena1=156
  66. 312 ifpeek(v+8)<=10thenpoke25596,a2:a2=a2+1:ifa2>=157+zathena2=156
  67. 315 ifpeek(v+2)<=7thenpoke25593,a3:a3=a3+1:ifa3>=161+zathena3=160
  68. 317 ifpeek(v+4)<=7thenpoke25594,a4:a4=a4+1:ifa4>=161+zathena4=160
  69. 320 ifpeek(999)=1thenpoke999,0:pp=pp-1:print"[158]"tab(28)p$(pp):ifpp=0then360
  70. 322 ifpeek(998)=1thenpoke998,0:sc=sc+25:print"[158]"sc
  71. 325 ifsc=300thenza=1
  72. 327 ifsc=600thenza=2
  73. 330 ifsc=900thenza=3
  74. 350 goto310
  75. 360 poke993,1
  76. 362 fort=1to9:print"[151][147][152][147][155][147][147][155][147][152][147][151][147][144][147]":next
  77. 365 print"[144][147][158][197]rreichte [208]unktezahl:"sc
  78. 370 geta$
  79. 371 ifa$=" "then375
  80. 372 ifpeek(56320)=111then375
  81. 374 goto370
  82. 375 print"[144][147][158][206]och einmal spielen (j/n) ?"
  83. 380 geta$
  84. 382 ifa$="j"then235
  85. 385 ifa$="n"thenpoke648,4:poke178,0:sys178
  86. 387 goto380
  87. 400 :
  88. 402 sys49152:pokev+21,1:print"[144][147][158][208]ress the [198]irebutton to start the game !
  89. 410 [151]993,1
  90. 415 [139][194](56320)[179][177]111[167]415
  91. 420 [151]993,0:[151]1000,111:[151]v[170]21,255:[142]
  92. 800 [153]"loadcont"
  93. 805 [153][163]8)"^*^right$ (NULL)^right$^*^right$ (NULL)^right$ *  ^*^right$
  94. 807 printtab(8)" * * * * * * *_* *   * *
  95. 810 [153][163]8)" * * * * * * *^* *   * *
  96. 815 printtab(8)"[189]*_[203] [202]_[203] * * * * *_[213][189]*_[203]
  97. 817 [153][163]6)"tototo to to tototo  to to tototo toto   to
  98. 820 printtab(6)"[176]*[174] * * *[176][174]  * * *[176][174] *^[201] [213]^[201]
  99. 822 [153][163]6)" *  *_* *_   *_* *_  *_(NULL) * *
  100. 825 printtab(6)" *  *^* *^   *^* *^  *[174][201] * *
  101. 827 [153][163]6)" *  * * */exp  * * */exp * * mid$_(NULL)
  102. 830 printtab(6)" [163]  [163] [163] [163][163][163]  [163] [163] [163][163][163] [163] [163]  [163]
  103. 834 [153][163]6)"(NULL)ritten 1988 by ascrank atnbbing
  104. 836 print"[158]"tab(15)"[189]*********[173]
  105. 837 [153][163]15)"*or       ^*
  106. 838 printtab(15)"* [129][167]^[201][167]^[201][158]  *
  107. 839 [153][163]15)"* forthen_(NULL)then_(NULL)sys  *
  108. 840 printtab(15)"*[173]       [189]*
  109. 841 [153][163]15)"^*********or
  110. 845 poke53265,27
  111. 850 ifpeek(56320)=111thenreturn
  112. 855 goto850
  113.